DIM hSingleArray AS Single[]
DIM aSingle AS Single

FOR EACH aSingle IN hSingleArray
  ...
NEXT

Enumerates each element stored in the array.